home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed17.d64 / lesson 18 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  245 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <NO>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 18                WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"              (null)EVIEW (null)EST     OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  LEFT$OWARD WANTS TO BUY A 90 CENT BALL.
  51. 210 PRINT"  [200]E HAS 63 CENTS.
  52. 215 [153]"  LEFT$OW MUCH MORE DOES HE NEED?"
  53. 220 [141]81:[141]70
  54. 225 [153]"             ON"
  55. 230 [133] A$
  56. 240 [139]A$[179][177]"27"[175]A$[179][177]"27 CENTS"[167]270
  57. 250 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  58. 260 P[178]P[170]1:[137]300
  59. 270 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  60. 275 [139]Z[178]2[167]G[178]G[170]1:[137]285
  61. 280 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  62. 282 [153]"OPENONON                                        ONONONONONONON"
  63. 283 [137]225
  64. 285 [153]"SYSONON  (null)HE CORRECT ANSWER IS 27SYS CENTS. ":[141]82
  65. 290 [153]"  90 - 63 = 27                         "
  66. 295 [141]82:[141]90
  67. 300 [153]"PRINT#LOAD               (null)UESTION 2 WAITOPEN":Z[178]0
  68. 305 [153]"  PEEKOB MAKES THREE CENTS FOR EVERY
  69. 310 PRINT"  MAGAZINE HE SELLS.
  70. 315 [153]"  LEFT$OW MUCH DOES HE GAIN ON 42             MAGAZINES?"
  71. 317 [153]"  (STR$ON'T FORGET THE $ SIGN!)"
  72. 320 [141]81:[141]70
  73. 325 [153]"             ON"
  74. 330 [133] A$
  75. 340 [139]A$[179][177]"$1.26"[167]370
  76. 350 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  77. 360 P[178]P[170]1:[137]400
  78. 370 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  79. 375 [139]Z[178]2[167]G[178]G[170]1:[137]385
  80. 380 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  81. 382 [153]"OPENONON                                        ONONONONONONON"
  82. 383 [137]325
  83. 385 [153]"SYSONON  (null)HE CORRECT ANSWER IS $1.26SYS      ":[141]82
  84. 390 [153]"  42 X .03 = 1.26                      "
  85. 395 [141]82:[141]90
  86. 400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
  87. 405 [153]"  LEFT$OW MANY HALF POUND PACKAGES OF
  88. 410 PRINT"  COFFEE CAN THE GROCER MAKE FROM         120 POUNDS OF COFFEE?"
  89. 420 GOSUB81:GOSUB70
  90. 425 PRINT"             [145]"
  91. 430 INPUT A$
  92. 440 IFA$<>"240"THEN470
  93. 450 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  94. 460 P=P+1:GOTO500
  95. 470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  96. 475 IFZ=2THENG=G+1:GOTO485
  97. 480 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  98. 482 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  99. 483 GOTO425
  100. 485 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS 240[158]      ":GOSUB82
  101. 490 PRINT"  120 X 2 = 240                      "
  102. 495 GOSUB82:GOSUB90
  103. 500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
  104. 505 PRINT"  [215]HAT WILL BE THE PRICE OF A DOZEN
  105. 510 [153]"  MELONS IF THEY SELL FOR 15 CENTS        EACH?"
  106. 520 [141]81:[141]70
  107. 525 [153]"             ON"
  108. 530 [133] A$
  109. 540 [139]A$[179][177]"$1.80"[167] 570
  110. 550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  111. 560 P[178]P[170]1:[137]600
  112. 570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  113. 575 [139]Z[178]2[167]G[178]G[170]1:[137]585
  114. 580 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  115. 582 [153]"OPENONON                                        ONONONONONONON"
  116. 583 [137]525
  117. 585 [153]"SYSONON  (null)HE CORRECT ANSWER IS $1.80SYS      ":[141]82
  118. 590 [153]"  12 X .15 = 1.80                      "
  119. 595 [141]82:[141]90
  120. 600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
  121. 605 [153]"  (null)HREE BOYS EARNED $9.60 SHOVELLING      SNOW.
  122. 610 PRINT"  [201]F THEY SHARE ALIKE, HOW MUCH
  123. 615 [153]"  SHOULD EACH GET?"
  124. 620 [141]81:[141]70
  125. 625 [153]"             ON"
  126. 630 [133] A$
  127. 640 [139]A$[179][177]"$3.20"[167] 670
  128. 650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  129. 660 P[178]P[170]1:[137]700
  130. 670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  131. 675 [139]Z[178]2[167]G[178]G[170]1:[137]685
  132. 680 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  133. 682 [153]"OPENONON                                        ONONONONONONON"
  134. 683 [137]625
  135. 685 [153]"SYSONON  (null)HE CORRECT ANSWER IS $3.20SYS      ":[141]82
  136. 690 [153]"  9.60 / 3 = 3.20                      "
  137. 695 [141]82:[141]90
  138. 700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
  139. 705 [153]"  ASCIND THE COST OF 5 TONS OF COAL
  140. 710 PRINT"  AT $14 A TON."
  141. 725 PRINT"             [145]"
  142. 730 INPUT A$
  143. 740 IFA$<>"$70.00"AND A$<>"$70"THEN770
  144. 750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  145. 760 P=P+1:GOTO800
  146. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  147. 775 IFZ=2THENG=G+1:GOTO785
  148. 780 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  149. 782 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  150. 783 GOTO725
  151. 785 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS $70.00[158]      ":GOSUB82
  152. 790 PRINT"  14 X 5 = 70                         "
  153. 795 GOSUB82:GOSUB90
  154. 800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
  155. 805 PRINT"  [193] GROCER HAD 32 DOZEN EGGS.
  156. 810 [153]"  RIGHT$F HE SOLD 14 DOZEN, HOW MANY WERE      LEFT?"
  157. 820 [141]81:[141]70
  158. 825 [153]"             ON"
  159. 830 [133] A$
  160. 840 [139]A$[179][177]"18"[175]A$[179][177]"18 DOZEN"[175]A$[179][177]"216"[167]870
  161. 850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  162. 860 P[178]P[170]1:[137]900
  163. 870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  164. 875 [139]Z[178]2[167]G[178]G[170]1:[137]885
  165. 880 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  166. 882 [153]"OPENONON                                        ONONONONONONON"
  167. 883 [137]825
  168. 885 [153]"SYSONON  (null)HE CORRECT ANSWER IS 18SYS DOZEN.  ":[141]82
  169. 890 [153]"  32 - 14 = 18                         "
  170. 895 [141]82:[141]90
  171. 900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
  172. 905 [153]"  (null)UTH HAS A DOLLAR, 2 QUARTERS,
  173. 910 PRINT"  1 DIME, AND 7 PENNIES.
  174. 915 [153]"  LEFT$OW MUCH MONEY DOES SHE HAVE?"
  175. 920 [141]81:[141]70
  176. 925 [153]"             ON"
  177. 930 [133] A$
  178. 940 [139]A$[179][177]"$1.67"[167]970
  179. 950 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  180. 960 P[178]P[170]1:[137]1000
  181. 970 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  182. 975 [139]Z[178]2[167]G[178]G[170]1:[137]985
  183. 980 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  184. 982 [153]"OPENONON                                        ONONONONONONON"
  185. 983 [137]925
  186. 985 [153]"SYSONON  (null)HE CORRECT ANSWER IS $1.67SYS      ":[141]82
  187. 990 [153]"  1.00 + .50 + .10 + .07 = 1.67        "
  188. 995 [141]82:[141]90
  189. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  190. 1005 [153]"  STR$ICK GATHERED EGGS AT HIS UNCLE'S       FARM.
  191. 1010 PRINT"  [200]E FOUND THREE EGGS IN EACH OF          NINE NESTS.
  192. 1015 [153]"  LEFT$OW MANY EGGS DID HE FIND IN ALL?"
  193. 1020 [141]81:[141]70
  194. 1025 [153]"             ON"
  195. 1030 [133] A$
  196. 1040 [139]A$[179][177]"27"[167]1070
  197. 1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  198. 1060 P[178]P[170]1:[137]1100
  199. 1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  200. 1075 [139]Z[178]2[167]G[178]G[170]1:[137]1085
  201. 1080 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  202. 1082 [153]"OPENONON                                        ONONONONONONON"
  203. 1083 [137]1025
  204. 1085 [153]"SYSONON  (null)HE CORRECT ANSWER IS 27SYS EGGS. ":[141]82
  205. 1090 [153]"  3 X 9 = 27                           "
  206. 1095 [141]82:[141]90
  207. 1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
  208. 1105 [153]"  (null)ELL IS NINE YEARS OLD AND HER
  209. 1110 PRINT"  COUSIN IN SIXTEEN.
  210. 1115 [153]"  LEFT$OW MUCH OLDER IS HER COUSIN?
  211. 1120 GOSUB81:GOSUB70
  212. 1125 PRINT"             [145]"
  213. 1130 INPUT A$
  214. 1140 IFA$<>"7"ANDA$<>"7 YEARS"THEN1170
  215. 1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  216. 1160 GOTO1200
  217. 1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  218. 1175 IFZ=2THENG=G+1:GOTO1185
  219. 1180 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  220. 1182 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  221. 1183 GOTO1125
  222. 1185 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS 7[158] YEARS.":GOSUB82
  223. 1190 PRINT"  16 - 9 = 7                           "
  224. 1195 GOSUB82:GOSUB90
  225. 1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
  226. 1205 D=W-G:C=10-W
  227. 1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  228. 1215 [153]"                 ";C
  229. 1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  230. 1225 PRINT"                 ";D
  231. 1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
  232. 1235 [153]"                 ";G;""
  233. 1245 [141]90
  234. 1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
  235. 1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
  236. 1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
  237. 1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
  238. 1270 [139]R$[178]"R"[167][140]:[137]100
  239. 1275 [140]
  240. 1280 [153]"LOAD (null)ETURNING TO THE DISK MENU
  241. 1285 LOAD"MENU",8
  242. 1290 RUN
  243. 1295 END
  244. 1300 REM BILL CUMBERLAND 90:12:24
  245.